home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / Converters / say2raw.lha / strip0.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1996-04-12  |  293 b   |  11 lines
  1. /* strip zero bytes */
  2. /* © by Stefan Haubenthal 1996 */
  3. name="Say.RAW"
  4. call open(in,name)
  5. buffer1=strip(readch(in,50000),L,"00"x)
  6. buffer2=strip(readch(in,50000),T,"00"x)
  7. if buffer2="" then buffer1=strip(buffer1,T,"00"x)
  8. call close(in)
  9. call open(out,name,W)
  10. call writech(out,buffer1||buffer2)
  11.